www.gusucode.com > 红色大方的企业网站源码 1 > 红色大方的企业网站源码 1.0/qiye_red/DownloadShow.asp
<!--#include file="Inc/SysDown.asp" -->
<%
ShowSmallClassType=ShowSmallClassType_Article
dim ID
ID=trim(request("ID"))
if Id="" then
response.Redirect("Download.asp")
end if
sql="select * from Download where ID=" & ID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write"<SCRIPT language=JavaScript>alert('找不到此下载！');"
response.write"javascript:history.go(-1)</SCRIPT>"
else
rs("Hits")=rs("Hits")+1
rs.update
%>
<!-- #include file="Head.asp" -->
<script language="JavaScript">
<!--
function zoom_img(e, o)
{
var zoom = parseInt(o.style.zoom, 10) || 100;
zoom += event.wheelDelta / 12;
if (zoom > 0) o.style.zoom = zoom + '%';
return false;
}
//-->
</script>
<table width="1000" height="579" border="0" align="center" cellpadding="0" cellspacing="0">
<tbody>
<tr>
<td width="265" height="563" valign="top" background="imgbsy/l1.jpg"><table cellspacing="0" cellpadding="0" width="265" border="0">
<tbody>
<tr>
<td><img height="34" src="imgbsy/gg.jpg" width="265" /></td>
</tr>
<tr>
<td valign="top" width="265" background="imgbsy/gg11.jpg" height="114"><table width="245" border="0">
<tbody>
<tr>
<td width="10"> </td>
<td width="225"><marquee onmouseover="this.stop()"
style="FONT-SIZE: 9pt; COLOR: #000000" onmouseout="this.start()"
scrollamount="1" scrolldelay="50" direction="up" width="210"
height="90">
<table bordercolor="#ffffff" cellspacing="0" cellpadding="0"
width="210" align="center" border="0">
<tbody>
<%
set rs_news=server.createobject("adodb.recordset")
sqltext4="select top 1 * from Affiche order by id desc"
rs_news.open sqltext4,conn,1,1
%>
<%i=0
do while not rs_news.eof%>
<tr>
<td valign="top">
<span class="px12">
本站公告：
<a href='#' onclick="javascript:window.open('Affiche.asp?ID=<%=rs_news("id")%>', 'newwindow', 'height=450, width=400, toolbar=no, menubar=no, scrollbars=auto, resizable=no, location=no, status=no')" title='<%=cutstr(rs_news("title"),15)%>'><font color='#FF0000'><%=cutstr(rs_news("title"),15)%></font></a>
</td>
</tr>
<%rs_news.movenext
i=i+1
if i=6 then exit do
loop
rs_news.close %>
</tbody>
</table>
</marquee></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td><img height="30" src="imgbsy/about1.gif" width="265" /></td>
</tr>
<tr>
<td><img height="9" src="imgbsy/fbjx1_07.jpg" width="265" /></td>
</tr>
<tr>
<td valign="top" background="imgbsy/fbjx1_08.jpg" height="150"><table width="245" border="0">
<tbody>
<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus where Language='1' and Aboutusorder <100 order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
<tr>
<td width="49" height="25"><div align="right"><img height="4" src="imgbsy/d1.gif" width="4" /></div></td>
<td class="px12-5" width="186"> <a href="Aboutus.asp?Title=<%=rslist("Title")%>" class="px12-5"><%=rslist("Title")%></a> </td>
</tr>
<tr>
<td colspan="2" align="right"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1" bgcolor="#EBEBEB"></td>
</tr>
</table>
</td>
</tr>
<%rslist.movenext
loop
rslist.close
set rslist=nothing
%>
</tbody>
</table></td>
</tr>
<tr>
<td><img height="9" src="imgbsy/fbjx1_10.jpg" width="265" /></td>
</tr>
<tr>
<td><img height="37" src="imgbsy/con1.gif" width="265" /></td>
</tr>
<tr>
<td valign="top" width="265" background="imgbsy/tu1.jpg" height="180" style="padding-top:5px;">
<!--#include file="qq.asp" -->
</td>
</tr>
</tbody>
</table></td>
<td valign="top" background="imgbsy/fbjx1_04.jpg"><table cellspacing="0" cellpadding="0" width="735" border="0">
<tbody>
<tr>
<td width="735" height="38" background="imgbsy/title.gif"><table width="735" height="38" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="173" class="about1">下载内容</td>
<td width="388"> </td>
<td width="174" class="about2"> 首页 >> 下载中心</td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="imgbsy/fbjx1_04.jpg" bgcolor="#FFFFFF"><table cellspacing="0" cellpadding="0" width="700" align="center">
<tbody>
<tr>
<td class="px12"
valign="top" style=" padding-top:20px; padding-left:10px; padding-right:15px; line-height:25px;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="490" height="30"><%
response.write " <a href='Download.asp?BigClassName=" & rs("BigClassName") & "'>" & rs("BigClassName") & "</a> >> "
if rs("SmallClassName") & ""<>"" then
response.write "<a href='Download.asp?BigClassName=" & rs("BigClassName")&"&SmallClassName=" & rs("SmallClassName") & "'>" & rs("SmallClassName") & "</a> >> "
end if
response.write rs("Title")
%>
</td>
</tr>
<tr>
<td colspan="2"><br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" >
<tr class='MC_DoShow_T1Tr1'>
<td height="30" colspan="2" bgcolor="#FFFFFF"> <%=rs("Title")%></td>
</tr>
<tr bgcolor="#FFFFFF" >
<td width="419" height="40" > 软件语言：<%=rs("Language")%></td>
<td width="256" rowspan="5" align="center"><img src="<%if rs("PhotoUrl")="" then%>Img/nopic.gif<%else%><%=rs("PhotoUrl")%><%end if%>" alt="<%=rs("title")%>" width="200" height="170" border="0" /></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF" > 文件大小：<%=rs("FileSize")%></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF"> 运行环境：<%=rs("System")%></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF" > 整理日期：<%=FormatDateTime(rs("AddDate"),2)%></td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF" > 下载次数：<%=rs("Hits")%></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35" ><a href="<%=rs("DownloadUrl")%>" target="_blank"><img src="img/down.gif" width="89" height="28" border="0" /></a></td>
</tr>
<tr>
<td height="45" class="tit-3" style="font-weight: bold">下载说明</td>
</tr>
</table>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"></td>
</tr>
<tr>
<td><FONT face=Verdana><%=rs("Content")%></FONT></td>
</tr>
</table></td>
</tr>
<tr>
<td height="19"><div align="right">【<a href='javascript:history.back()' class="link1">返回</a>】</div>
<div align="center"></div></td>
</tr>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr valign="top">
<td background="imgbsy/m1.jpg" colspan="2"></td>
</tr>
<tr valign="top">
<td colspan="2" background="imgbsy/m1.jpg" bgcolor="#FFFFFF"></td>
</tr>
<tr valign="top">
<td colspan="2" height="16"><img height="16" src="imgbsy/b1.jpg" width="1000" /></td>
</tr>
</tbody>
</table>
<!--#include file="Foot.asp" -->
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>